home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / background_22243.txt < prev    next >
Text File  |  1988-02-27  |  6KB  |  245 lines
  1. -- background: 22243 from stack: in.4
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Donor Reports
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the number of last card of this background into LastCard
  9.   put the number of first card of this background into FirstCard
  10.   put LastCard-the number of this card+1 into ThisCard
  11.   put LastCard-FirstCard+1 into TotalCards
  12.  
  13.   set the name of background button ID 13 to "Card" && ThisCard
  14.   set the name of background button ID 14 to "of" && TotalCards
  15.  
  16. end openCard
  17.  
  18.  
  19. -- part 4 (button)
  20. -- low flags: 00
  21. -- high flags: A000
  22. -- rect: left=264 top=287 right=338 bottom=359
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 1007 / 1007
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: Print
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.  
  34.   go to first card of background "Donor Reports"
  35.   --doMenu "Delete Card"
  36.  
  37.   set lockscreen to true
  38.   doMenu "Print Report..."
  39.   set lockscreen to true
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 5 (field)
  45. -- low flags: 00
  46. -- high flags: 0007
  47. -- rect: left=42 top=35 right=100 bottom=481
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Name
  56.  
  57.  
  58. -- part 6 (field)
  59. -- low flags: 00
  60. -- high flags: 0007
  61. -- rect: left=41 top=115 right=277 bottom=174
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: Date
  70.  
  71.  
  72. -- part 8 (field)
  73. -- low flags: 00
  74. -- high flags: 0000
  75. -- rect: left=54 top=287 right=320 bottom=164
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name:  
  84.  
  85.  
  86. -- part 9 (field)
  87. -- low flags: 00
  88. -- high flags: 0007
  89. -- rect: left=190 top=115 right=277 bottom=485
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Amount
  98.  
  99.  
  100. -- part 11 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=463 top=304 right=337 bottom=507
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 9761 / 9761
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Return
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   Global LimitCards2
  115.  
  116.   answer "If you leave this background, these cards will be deleted!"& " Maybe you should first print or write this information to a text file?" with "Leave" or "Stay Here"
  117.   if it is "Stay Here" then exit mouseUp
  118.  
  119.   set cursor to 4
  120.   set lockscreen to true
  121.   go to last card of background "Donor Reports"
  122.   put the number of this card into LastCard
  123.   go to first card of background "Donor Reports"
  124.   put the number of this card into FirstCard
  125.   put LastCard-FirstCard into TotalCards
  126.  
  127.   put empty into background field "Name"
  128.   put empty into background field "Date"
  129.   put empty into background field "Amount"
  130.  
  131.   if TotalCards is 0 then
  132.     go to card "Map"
  133.     exit mouseUp
  134.   end if
  135.  
  136.   repeat with i = 1 to TotalCards
  137.     doMenu "Delete Card"
  138.   end repeat
  139.   put empty into background field "Name"
  140.   put empty into background field "Date"
  141.   put empty into background field "Amount"
  142.  
  143.  
  144.  
  145.   go to card "Map"
  146.  
  147. end mouseUp
  148.  
  149.  
  150.  
  151. -- part 12 (button)
  152. -- low flags: 00
  153. -- high flags: A000
  154. -- rect: left=171 top=287 right=338 bottom=259
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 12195 / 12195
  157. -- text alignment: 1
  158. -- font id: 0
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: Write to Text File
  163. ----- HyperTalk script -----
  164. on mouseUp
  165.   ask "Before saving, name the file you want to save this data to?" with "(Ckg/Savings) Income REPORT"
  166.   put it into ThisFile
  167.   if ThisFile is empty then put "(Ckg/Savings) Income REPORT" into ThisFile
  168.  
  169.   open File ThisFile
  170.   write "Be sure to set your tabs because the date and the amount "& "are separated by a tab setting!" & Return & Return to file ThisFile
  171.  
  172.  
  173.   set cursor to 4
  174.   set lockscreen to true
  175.   go to last card of background "Donor Reports"
  176.   put the number of this card into LastCard
  177.   go to first card of background "Donor Reports"
  178.   put the number of this card into FirstCard
  179.   put LastCard-FirstCard+1 into TotalCards
  180.  
  181.   repeat with j = 1 to TotalCards
  182.     write background field "Name" to file ThisFile
  183.     put the number of lines of background field "Amount" into TotalLines
  184.  
  185.     repeat with i = 1 to TotalLines
  186.       put line i of background field "Date" into Date
  187.       put line i of background field "Amount" into Amount
  188.       write Date & Tab & Amount & Return to file ThisFile
  189.     end repeat
  190.     go to next card of this background
  191.   end repeat
  192.  
  193.  
  194.   Close File ThisFile
  195.  
  196.   --open file ThisFile
  197.   --repeat with i = 1 to 5000
  198.   --read from file ThisFile until return
  199.   --if it is empty then exit repeat
  200.   --put it into line i of background field "The Text"
  201.   --end repeat
  202.   --Close File ThisFile
  203.  
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 13 (button)
  209. -- low flags: 00
  210. -- high flags: A000
  211. -- rect: left=366 top=290 right=338 bottom=411
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 9301 / 9301
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Card 1
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   visual effect scroll right
  223.   go to next card of this background
  224. end mouseUp
  225.  
  226.  
  227. -- part 14 (button)
  228. -- low flags: 00
  229. -- high flags: A000
  230. -- rect: left=410 top=290 right=338 bottom=454
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 27009 / 27009
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: of 2
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   visual effect scroll left
  242.   go to previous card of this background
  243. end mouseUp
  244.  
  245.